source('dados.R')

N <- 6000

d2 <- Danos[runif(N, 1, length(Danos))]




